home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 June / PCWorld_2007-06_cd.bin / v cisle / pcwsicons / pcwSIcons2.exe / {app} / RestoreIcons.vbs < prev    next >
Text File  |  2006-11-21  |  908b  |  31 lines
  1. '==========================================================================
  2. '
  3. ' VBScript Source File 
  4. '
  5. ' NAME: RestDemo.VBS
  6. '
  7. ' AUTHOR: Thorsten Eggeling
  8. ' DATE  : 02.2001
  9. '
  10. ' COMMENT: Rⁿcksichern der Desktop-Icon-Positionen
  11. '
  12. ' n÷tige Anpassungen: IniFileName, [Resolution]
  13. '                     
  14. '==========================================================================
  15. 'IniFileName=Mid(WScript.ScriptFullName, 1, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) & "SRIcons.ini"
  16.  
  17. Set mySIcon = CreateObject("pcwSIcon.pcwSIcon")
  18. Set WshShell = WScript.CreateObject("WScript.Shell")
  19. Set WshSysEnv = WshShell.Environment("Process")
  20. appDataPath = WshSysEnv("APPDATA") 
  21.  
  22. MsgBox("Layout wiederherstellen.")
  23.  
  24. With mySIcon
  25. '.About
  26. .IniFileName=appDataPath+"\pcwSIcon.ini"
  27. 'bei Bedarf lΣ▀t sich hier ein eigener Layout-Name festlegen
  28. '.Resolution="myDesktop"
  29. .Restore
  30. End With
  31.